Option Explicit
Sub E_Sample011()
    'ո E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCnt  As Long
    Dim myKey  As String
    Set myRng1 = Columns("C")				'jMӷd
    myKey = ""						'w
    Set myRng2 = myRng1.Find(what:=myKey)
    If Not myRng2 Is Nothing Then
        myCnt = myRng2.Offset(, 5).Value			']wOffsetC
        MsgBox myKey & "XpƬ" & myCnt & "C"
    Else
        MsgBox "SŦX󪺸"
    End If
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
